Abrir varios formularios

Caros colegas estou precisando mais uma vez ajuda nosso colega Dilson ajudou anteriormente mais estou precisando de uma modificação neste mesmo codigo
ele e somente para leitura gostaria que ele grava-se.

Dim rs As Recordset
Dim qRegistros As Long
Dim qForm As String
Dim qReq As Long
Dim i As Long
qReq = Me!txtCódigo
Set rs = CurrentDb.OpenRecordset("SELECT * FROM TbPedidoEx WHERE Código=" & qReq & "")
rs.MoveLast
rs.MoveFirst
qRegistros = rs.RecordCount
For i = 1 To qRegistros
qForm = rs("Exame")
If qForm = "HEMOGRAMA COMPLETO" Then
DoCmd.OpenForm "DigHemograma", , , "Código=" & Me.Código & ""

obg.

Fala Fire,
Cara, para "atualizar" um registro com o recordset você pode usar o Edit junto com o Update, já para "adicionar" um novo registro você precisa usar o AddNew e depois Update.

Ex Atualizar:

Código:


rs.Edit
rs!Exame = "Nova descrição do Exame"
rs.Update


Ex Adicionar:

Código:


rs.AddNew
rs!Código = 100
rs!Exame = "Novo Exame"
rs.Update


Brinca aí amigo e nos diga se conseguiu.

Abraços

Admir obg pela ajuda mais não quero adicionar quero gravar pois ele abre os form para digitar quando vc digita e salva depois se abrir novamente ele não fica gravado.

Fala Fire,
Amigo, então posta seu BD com o formulário e tabela em questão para darmos uma olhada como você está fazendo.

Abraços.

http://maximoaccess.forumeiros.com/t20438-resolvidoloop-para-abrir-varios-formularios-de-acordo-com-o-criterio-de-registros

da uma olhada