这段VBA联想输入问题、查询代码哪里有问题

YZC51

看箭头处

深秋红叶2019

YZC51 发表于 2020-2-23 11:02
看箭头处

拿着手机照抄的，原来跑下面来了，已经可以了，老师您太腻害了，崇拜

YZC51

深秋红叶2019 发表于 2020-2-23 11:17
拿着手机照抄的，原来跑下面来了，已经可以了，老师您太腻害了，崇拜

老师您客气了！谢谢花花鼓励！

YZC51

请参考
蓝泰美业收银系统-20200223.rar (91.38 KB, 下载次数: 16)

2020-2-23 15:29 上传

点击文件名下载附件

深秋红叶2019

YZC51 发表于 2020-2-23 11:32
老师您客气了！谢谢花花鼓励！

老师我是个小白，以后遇到问题还得请教老师您，多多向您学习，我还配不上老师这个称呼，再次感谢老师您对我的帮助，给花花是应该的，可惜最多只能给2朵花花，一天只有8朵，太少了，以后会持续关注老师您，老师加油

YZC51

深秋红叶2019 发表于 2020-2-23 12:06
老师我是个小白，还配不上老师这个称呼，再次感谢老师您对我的帮助，给花花是应该的，可 ...

不客气！谢谢啦！

深秋红叶2019

YZC51 发表于 2020-2-23 12:08
不客气！谢谢啦！

哦对了，老师，如果点击下一条记录的是后直接是从第8行显示了，6和7都没有显示

深秋的黎明

你的理发店老板，还是员工？这些天疫情不营业，你没闲着哈，很用功。
我觉得你这样的“系统”应该全部用窗口输入

YZC51

请参考

Private Sub CommandButton7_Click() '上一条记录
    If Rnumber < 6 Then Rnumber = 7
    If Rnumber > 6 Then
        Rnumber = Rnumber - 1
        TextToRang (Rnumber)
        Label14 = Rnumber - 5
    Else
        MsgBox "已经是第一条啦！ 第" & Rnumber - 5 & "条"
        Exit Sub
   '     Rnumber = Sheet2.Range("A65536").End(xlUp).Row
    End If
'    Debug.Print Rnumber
End Sub

Private Sub CommandButton8_Click() '下一条记录
    If Rnumber < 6 Then Rnumber = 5
    If Rnumber < Sheet2.Range("A65536").End(xlUp).Row Then
        Rnumber = Rnumber + 1
        TextToRang Rnumber
        Label14 = Rnumber - 5
'    Debug.Print Rnumber
    Else
        MsgBox "已经是最后一条啦！ 第" & Rnumber - 5 & "条"
        'Rnumber = 6
    End If
End Sub

深秋红叶2019

YZC51 发表于 2020-2-23 14:07
请参考

Private Sub CommandButton7_Click() '上一条记录

老师，还是一样从第3行显示